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IDENT ‘V04-001" 


RERAAKERAAAAAAAA AAA AAAAAAAAAAAAAAERAAAAAAAEAAAAAARAAAAAAARAAARAAAAAEAEEEAEEEES 


ix a bug Seeveusted in LMP O65. Read checks are still doing 
the protection check on each | 


v03-018 Lneoegs Mark Pilant, 26-Jun-1984 13:52 
Only do a pets check for the first 1/0 to the channel. 


v03-017 CWH3017 obbs y71984 
Uses JSB to ah it CVT_DEVNAM, a esee” were wouldn't 
o it. 


vV03-016 caus 16 CW Hobbs 4-May-1984 
rite EXESSNDEVASG to yee 1OCSCVT ya ry that 

NODESCON NTROLLER form device names will be used for 
cluster-wide devices. Old routine used controller 


Z; 
5 ;* * 
§ ;* coereienr (c) 1978, 1980, 1982, 1984 BY 
:* DIGITAL QUIPHENT _GORPORATION, MAYNARD, MASSACHUSETTS. ‘ 
: Se ALL RIGH $ RESER * 
PY ® 
8 10 ;* THIS oe. fs ryan suee UNDER A LICENSE AND MAY BE USED AND COPIED * 
11 ;* ONLY IN ACCORDANCE WITH THE jes OF SUCH LICENSE AND WITH THE * 
\§ 3* INCLUSION OF Ne ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AMY OTHER * 
15 ;* COPIES THEREOF MA oth BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
4 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
44 12 :* TRANSFERRED. * 
P ® 
000 i$ 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 18 3* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
9000 3 :* CORPORATION. * 
3 cs 
0000 1 3;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
44 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
000 3* * 
0000 4 ;* a 
8606 5 PAAR ARATE RAAT AA AAA AEA AA AAA A AAA ATAAAAARAAAAAAAAAAAAAAAAAAA eee tee eAereeeeeeet 
000 : i++ 
44 8 ; FACILITY: 
00 93 
448 ? : VAX/VMS MAILBOX DEVICE DRIVER 
9000 é > ABSTRACT: 
944 : : THIS MODULE CONTAINS THE MAILBOX DRIVER 1/0 ROUTINES. 
9000 6 : AUTHOR: R. HEINEN 16-SEPT-76 
0900 8 : MODIFIED BY: 
0 : v04-001 ACG0467 Andrew C. Goldstein, 12-Sep-1984 22:07 
00 ie Fix protection holes in Q10 device protection check 
§ ; vO3-019 LwPO289 Mark Pilant 30-Jul-1984 8:39 
* 
a: 
gi 


PAPI EB EE EE EE 


v0 
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only = this was often ambiguous in a cluster. 


v03-015 wMCc0001 Wayne Cardoza 30-Apr-1984 
Declare MBX resource available when message is read. 


v03-014 TMKO001 Todd M. Katz 21-Apr-1984 
When deleting ap logical name associated with a mailbox, 
delete the Log cal_name block by calling LNMSDELETE_LNMB 
instead of LNASDELETE. Doing so will ensure that this deletion 
takes place as if the system service SDELLNM had been called 
to delete the logical name. In other words, not only will the 
target logical name be deleted, but so will all outer access 
mode aliases. Also, remove the SLOGDEF Logical name definitions. 


vO3-013 MHBO138 Mark Bramhall 12-Apr-1984 
Ensure allocated blocks are at least FKBSC_LENGTH. 


vO3-i2 LMP0221 L. Mark Pilant, 30-Mar-1984 14:53 
Change UCBSL_OWNUIC to ORBSL_OWNER and UCB$W_VPROT to 


pelolojlolojlolololo! 


OCooo: 


abe all changes ngceusery to have control transfered to 
EXESIORSNWAIT at IPLS_ASTDEL rather than IPLS_SYNCH. This _is 
necessary to conform with internal changes in EXESIORSNWAIT. 


p 

0 

0 

0 

0 

909 ORBSW_PROT 

$009 v03-011 LMPO185 L. Mark Pilant 31-Jan-1984 10:45 
4 Track interface change to EXESCHKxxxACCES routines. 

000 V03-010 ROW0277 Rolph 0. Weber 11=-JAN-1984 

000 Implement use of IOSM_NORSWAIT modifier to prevent resource 
+4464 waits. 
0000 V03-009 DMW4032 DMWalp 26-May-1983 
444 Intergate new logical name structures. 
444 v03-008 ROW0170 Ralph 0. Weber 12-MAR-1983 

000 Insert delete mailbox functionality from IOCSDELMBX in 
0000 CANCELIO. This moves the mailbox specific knowledge of how to 
0900 delete a mailbox from $DASSGN into this driver. 

000 v03-007 CWH1002 CW Hobbs 24-Feb-1983 

0000 Modify to return extended pid in second longword of 

. 44 iosb. 
0900 V03-006 ROW49973 Ralph 0. Weber 29-0CT-1982 
33 
0 
0 


v03-005 ber 7=JUL-1982 
a BUFFEROVF instead of 


OVF Ts an alternate success status. 


Soooo 


SOoOoOoOoOoOoOOSoSoSo 


ROW0117 Ralph 0. We 
Change FINISHREAD to return 
a ey Poet oe SS$_BUFFER 


without hassling uninterested programs with an error status. 
Also fix FINISHREAD return bytes written equal to transfer 

byte count for the mailbox writer: mailbox write operations 
always transfer the requested number of bytes to the mailbox. 


v03-004 Kondgee Kathleen D. Morse 28-Jun-1982 
Added SDCDEF and SPRVDEF. 


= § AQOODOOD9OO0O000 000000 009000900 09 09 09 09 09 09 NINN NINN NNO A AAAAPAAOOUM 
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at a ah 4 


SOOoCoOoOoOooOoOoOoSoSo 
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v03-003 eodbge Ral 16-JUN-1982 
Change FINISHREAD 4 eters "sis. DATAOVERUN when number of 
ertes in mail box message be 
n user supplied buffer. 


v03-002 ROW0102 Ralph 0. Weber ee Er 

Make several chenges to improve handlin A ength 

povenpes in mailboxes. Change READCHECKIO and roRite HECKIO 

to allow zero-byte messages, and provide a dummy buffer aaeronn 

fer such messages. ag = to above ig routines and 
coreer to abn yer® return buffer address and size nge write 

in IRPSL_MEDIA and IRPS$W_BCNT respect yely. Change wr 

function processing to always use IRP fields as source o 

buffer address and size information 

This change is distributed as part "oF SYS.EXE ECO 14 in 

Version 3.1. 


v03-001 ROW0076 Ralph 0. Weber 27-MAR-1982 
Fix READCHECKIO and PURITECHECKIO to test length of transfer 
a return immediate success if the length is zero. The form 
of this fix is duplicated from MBXDRIVER, the shared memory 
mailbox driver. 


v02-013 SRB0045 Steve Beckhardt 13-Jan-1981 


ng read exceeds number of bytes 
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Fixed ig ea eb ge bug involving going into MWAIT 


due to insufficient pool or mailbox full. 
v02-012 $TJ0135 Steven T. Jeffre 30-0c t-1981 

Use the symbol s¥S$C _MBXUCBSIZ Yor’ the size 7 a mailbox UCB. 
v02-011 STJ Steven T. Jeffre 05-Feb-1981 


Rodity. FOTSET to default to 108M. URTATIN if no function 
modifier is present. 


v02-010 STJ0018 Steven T. Jot trers 
Modi tied FDTSET to support SETPROT function. Changed 
EXESWRTMAILBOX path to check for system write access 


28-Jan-1981 
allowed and return SS$_INSFMEM if nonpaged pool 
j 


OOQOCOCOCOOCOSOGCOOCOSOOCOOCSO SOOO OCOOOSOOOO OOOO OOOOOOO 


cannot be allocated. 
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v2-009 LMK0002 Len Kawell 09-Jun-1980 
Allow zero length messages. 
vooos LMK0001 Len Kawell 8-F eb-1980 


Remove maximum number of messages checks (UCBSW_MSGMAX) 
since there is no way to set it on a per mailbox basis 
and the buffer quota is sufficient protection. 


aise, re 


v0O007 ACG0047 Andrew C. Goldstein, 88-Aug-1979 17:10 
Protection check interface changes 


rovare SSS_INSFMEM and SSS$_MBFULL when resource wait is 
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rai 18: qi 1382 98: :15:44 [CSYS.SRCIMBDRIVER.MAR;2 wm 
16 9 ; BLOCK INTO A FORK BLOCK FOR DELAYED DEALLOCATION, EVEN FOR 
1? 9 ; ZERO LENGTH MESSAGE DATA BLOCKS. 
1 a 
00000016 8 : MBMSG_C_HEADER = MBMSG_C_LENGTH ; ASSUME FIXED HEADER IS LONG ENOUGH 
pEEEEEEE 16 4 .IF LT MBMSG C_HEADER-FRBSC_LENGTH 
0000001 16 MBMSG_C_HEADER = FKBSC_LENGTH ; LENGTHEN TO AT LEAST A FORK BLOCK 
1 
99990000 i 8 P1 = 0 : OFFSET TO BUFFER ADDRESS IN ARGUMENT BLOCK 
00000004 0016 Pe = 4 : OFFSET TO REQUEST S1z5 IN ARGUMENT BLOCK 
99000008 16 40 P = 8 : OFFSET FOR PARAMETER 
C 16 4] Pu = 12 : OFFSET FOR PARAMETER 4 
016 rk 3 
O16 44 > LOCAL DATA STORAGE 
0000 000 46 .PSECT $$$105_PROLOGUE 
000 47 MBSDPT:: ; DRIVER START 
9000 48 DPTAB = : DRIVER PROLOGUE TABLE 
000 249 END=MB_END,- : END OF DRIVER 
9009 50 ADAPTER=UBA, = : FAKE ADAPTER 
00 51 Ucesize=srséc _MBXUCBSIZ,- ; SIZE OF UCB 
909 38 NAME =MBD : ORIVER 
00 6 DPT_STORE INIT : 
0038 54 DPT“STORE REINIT : 
0038 38 DPT"STORE END t START AND END OF CONTROLLER INIT 
00009009 37 .PSECT $$$115_DRIVER,LONG 
0000 38 DDTAB MB, - : DRIVER DISPATCH TABLE 
0000 260 STARTIO, - : STARTIO OPERATION 
00 61 : NO UNSOLICITED INTERRUTPS 
00 6¢ FUNCTABLE,~ : FUNCTION DECISION TABL 
00 6 CANCELIO,- : CANCEL 1/0 
000 264 0,- : REGISTER DUMP ROUTINE 
000 65 0;- : SIZE OF DIAGNOSTIC BUFFER 
00 66 0 : SIZE OF ERROR LOG BUFFER 
0 68 ; 
op $9 : FUNCTION DECISION TABLE 
0 oy : 
ks FUNCTABLE: : FUNCTION DECISION TABLE 
7 FUNCTAB ,<= : LEGAL FUNCTIONS 
7% SE TMODE,- : ASK FOR READ OR WRITE AST'S 
75 RITEOF ,- + WRITE EOF 
0 id: READLBLK,WRITELBLK,- 
4 READVBLK URI TEVBLK = 
28 READPBLK.WRITEPBLK> 
4 7 FUNCTAB, <READLBLK,READVBLK ,READPBLK, = 
4 0 WRITELBLK,WRITEVBLK,WRITEPBLK> 
4 1 FUNCTAB FOTREAD, <READLBLK ,READPBLK, READVBLK>; UNCTION 
5 ; UNCTAB FDTWRI Te. <WRITELBLK /WRITEPBLK WRIT TEVBLES: OURITE FUNCTION 
60 FUNCTAB PDT SET. Mee TRODES ; SET AST CONTR 
6C 4 FUNCTAB FDTEOF .<WRITEOF> : WRITE EOF 


Se 


CAL Py: DEVNAM TO PLACE THE noe sont NTROLLER NAME IN THE BUFFER, CHECK 


STA Tus AND STORE ASCIC COUNT BYTE IN MESSAGE (ON TOP OF THE LEADING "_"*) 
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raat EXESSNDEVMSG = SEND DEVICE DRIVER MAILBO 1SasEPHlORG Soitycee fences acre VO 0O age 8, v0 
? $ is -SBTTL EXESSNDEVMSG = SEND DEVICE DRIVER MAILBOX MESSAGE 
f 8 ; EXESSNDEVMSG = SEND DEVICE SPECIFIC MESSAGE ON BEHALF OF DRIVER 
f 7 3 FUNCTIONAL DESCRIPTION: 
7 : THIS ROUTINE BUILDS AND SENDS A DEVICE SPECIFIC MESSAGE TO A MAILBOX. 
, $8 ; THE MESSAGE IS FORMATTED AS FOLLOWS 
7 95 : WORD D 0 = TYPE OF MESSAGE 
7 36 ; = UNIT OF DEVICE 
7 4 ; REMAINDER = "COUN NTED STRING OF DEVICE CONTROLLER NAME = FORMATTED AS 
f 38 : DESCONTROLLER FOR CLUSTER-WIDE DEVICES 
907 00 > INPUTS: 
007 0¢ : R3 = MAILBOX UCB ADDRESS 
907 6 : R4 = TYPE OF MESSAGE 
007 04 : RS = DEVICE UCB ADDRESS 
007 06 : 
Bao ti : OUTPUTS: 
007 09 : RO = STATUS OF THE OPERATION 
007 19 : R1,R2,R3,R4 ARE DESTROYED 
007 1 > STATUS RETURNS: 
$0 12 : SEE EXESWRTMAILBOX 
1 Fe 
007 i$ 
007 18 EXESSNDEVMSG: : : SEND MESSAGE FOR DEVICE DRIVER 
007 0; 
007 1; SET THE PROPER IPL FOR INTERLOCK, WRTMAILBOX WAS GOING TO DO THIS ANYWAY 
007 ¢ ; AND IOCSCVT_DEVNAM ASSUMES WE HAVE THE 10 DATABASE LOCKED FOR READING 
7E 12 DB 007 :? MFPR #PRS$_IPL,-(SP) ; SAVE CURRENT IPL 
6E 08 91 0078 4 CMPB ss # I PLS_ MAILBOX, (SP) + HIGH E NOUGH? 
03 1B 007 : BLEQU 1 ; IF LEQU THEN YES 
6 SETIPL #IPL$_MAILBOX _ | SET THE PROPER IPL 
9 3 MAKE A SPACE FOR THE NAME BUFFER, SET MESSAGE CODE AND DEVICE UNIT NUMBER 
o 3 (note that we are allocating a buffer which may have to be 
3 13 extended when device names are allowed to be 6 ~ hy tong. 
¢ i : in the short term it saves space on the interrupt stack) 
"oe ff i ios: re6, ~ (SP) : SAVE ve ae UCB, GET R6 AS SCRATCH REG 
SE iC) OC $ 5 SUBL2 ‘ 8S ; RESERVE BYTES SPACE TO BUILD MESSAGE 
54 OD $ PUSH CODE TO BUFFER, NOW TES 
56 53 00 MOVE’ ; SAVE THe thBut MAILBOX UCB ADDRESS 
02 aE «654 a5 «BO g mOVW R386 UNIT(RS) ,2(SP) INSERT UNIT NUMBER OF DEVICE IN MESSAGE 
40 
41 
42 


MS MAILBOX D 
EVMSG = SEND 


oyvmNmN Woe OoOMmo m< 


Boe 


SOOooooooooo 
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DEVICE DRIVER MAILBO 13-$Ep=198e Bo ibide ESYS\SRCIMBDRIVER MAR; 2 . (2) 
MOVL #28,R0 ; 28 BYTES OF MESSAGE BUFFER AVAILABLE 
MOVAB 4(SP),R1 ; ADDRESS OF AVAILABLE BUFFER FOR DEVICE NAM 
MOVL #4 RG ; WANT NODESCONTROLLER ONLY, NO UNIT# 
; DEVICE UCB IS ALREADY IN 
$B G*1OCSCVT_DEVNAM ; LET THE COMMON ROUTINE FIGURE IT 
CMPW Fog tne NORMAL ORO ; DID IT_ WORK? (SS$_BUFFEROVF IS ERROR) 
BEQL 0$ ; YES, IT RETURNED SUCCESS 
gps: BUG CHECK INCONSTATE ; FAILURE SHOULD NOT BE POSSIBLE 
O$: C R1 ; REMOVE THE LEADING UNDERSCORE FROM LEN 
BLEQ 20$ ; ZERO LENGTH IS ALSO SERIOUS ERROR 
MOVB R1,4(SP) ; STORE THE ASCIC COUNT IN THE MESSAGE 


; GET R3=MESSAGE LENGTH, R4=MESSAGE ADDRESS, R5S=MAILBOX UCB ADDRESS AND THEN WRITE 


ADDL3 #<2+2+1>,R1,R3 ; CODE + UNIT# + COUNT + NAME 
MOVL  SP,R4 : GET MESSAGE ADDRESS TO R4 
MOVL  R6.~R5 : MAILBOX UCB ADDRESS TO RS 
BSBB —- EXE SWRTMAILBOX : DO THE MAILBOX WRITE 


; CLEAN UP THE STACK, REGISTERS, RESTORE IPL AND EXIT 


NOUS WN OO OONAUE WN OOONOUEW 


DPDPPAEDPPEDPLDPED SMa & & & & & 


ADDL #32,SP ; REMOVE MESSAGE BUFFER FROM STACK 
MOVQ (SPS+,R5 ; RESTORE SENDING UCB AND SCRATCH REGISTER 
ENBINT ; EN ER*S IPL 


ABLE INTERUPTS TO CALL 
TURN 


sa | 


cm 


eu atte 


mz 
a> 
> 


IVER 16-SEP-1984 00:31:55 YAX/VMS Macro v04-00 p 
ILBOX SUBROUT 13-SEP-1964 SSi15:4¢ EeYSVSRCIRODRIVERMAR;2 = 28° (8 


a ~SBTTL SYSTEM INTERNAL WRITE TO MAILBOX SUBROUTINE 

EXESWRTMAILBOX = WRITE TO MAILBOX SUBROUTINE FOR EXECUTIVE USE 
FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE IS USED BY SYSTEM ROUTINES TO WRITE A MESSAGE TO A MAILBOX. 
; INPUTS: 


— 


RO = STATUS OF OPERATION 
R1,R2 USED. 
; COMPLETION CODES: 


SS$_NORMAL 

SS$-MBTOOSML - MESSAGE TOO LARGE FOR MAILBOX 
SS$"MBFULL = MAILBOX FULL OF MESSAGE 
SS$-INSFMEM = MEMORY ALLOCATION PROBLEM 
SS$"NOPRIV = NO OWNER WRITE ACCESS 


: OUTPUTS: 


CSOSDODODSOSDODOOOOOOOOOOOOOOO0O 
SOSOSCSCSOSOSOSOSOSSSOSOSOSOOSOSOOOSOOOOSOO 
FQOOOOVOVOOOOOIOOAIOOAIMIOOOOOOOOOOO Zz 
i> >>>>>>Y>>Y??r> >>> >>>? >>>??? rr ZU 
PEP PEPE PEPE PEP EEE PEE EE EEE EWAN NINA NAIA WIAA AA AAA AAA 


RonoPoRonOny 2 2 BQO OOOO 00000000000 00000006060 006060000909 I INN NININIOS 


MEAN OOOO UNE WIN O OD NAME WIN 8 OD NAME WN OS ODNOAU EW OO ODNOUSWN—O” Fr@ 
= . . e@e . 


0 
0 2 ee 
OOCA EXESWRTMAILBOX: : : 
OOCA : SET THE PROPER IPL FOR INTERLOCK 
7E 12 DB OCA MFPR = #PRS_IPL,=(SP) : SAVE CURRENT IPL 
6€ 0B 91 00CD CMPB ss #IPLS_ MAILBOX, (SP) : HIGH ENOUGH? 
03 1B 00D0 BLEQU : IF LEQU THEN YES 
Op SETIPL #IPL$_MAILBOX : SET THE PROPER IPL 
9D ; MAIL THE MESSAGE 
50 08D8 ef 3c «(00D 10$:  MOVZWL #SS$_MBFULL,RO : ASSUME MESSAGE WILL NOT FIT 
18 A5) 653. «=6©B1SOOODA CMPW = R3,UCB$W_BUF QUO(RS) : MESSAGE FIT? 
68 1A 00D BGTRU 40% : If GTRU THEN NO 
50  019¢ ef 3C 00 MOVZWL #SSS MBTOOSML .RO : ASSUME MESSAGE TOO BIG 
4205 53 81 O0E CMPW = R3,UCB$W_DEVBUFSIZ(R5) : BIGGER THAN ALLOWED? 
"D 1A 0069 BGTRU 40% : IF YES THEN ALSO ERROR 
0 24 3C O0EB MOVZWL #SS$_NOPRIV,RO : ASSUME NO WRITE PRIVILEGE 
51° 1C AS DO E MOVL UCBSC_ORB(R5) ,R1 : GET ORB ADDRESS 
F ; THE FOLLOWING ASSUMES THAT THE OWNER PROTECTION FIELD IS IN BITS 4-7 OF THE 
F t STANDARD PROTECTION WORD. 
7E 18 Al 06 04 EF OOF EXTZV #4,#4,ORB$W_PROT(R1),-(SP) - ASSUME SOGW PROTECTION WORD 
04 0B Al 00 € F BBS ORBSV_PROT~16,ORB$B. FLAGS(R1),15$ : XFER IF CORRECT 
6— IC Al OD FD MOVL ORBSL OWN PROT(R1),(SP) ; ELSE USE VECTOR 
08 D 101 15$ BITL #ARMSA_WRITE, (SP)+ : CHECK FOR WRITE ACCESS 
42 12 0104 BNEG 408 : MFER IF NO WRITE ACCESS 
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:*CANCELIO - CANCEL I/0 ON MAILBOX UNIT 
: FUNCTIONAL DESCRIPTION: 


OUTPUTS: 
R4,R5 ARE PRESERVED 
_JPL = MAILBOX IPL 


109 CD CS 09 C9 09 CD 09 09 INI NI SIENNA OA AAA AAOAOOuTIN 
=O ODNAU EWN OC ODNOU EWN OONOUE WI OOo~n 
o: PIP Tee Tee Ce Tee eee Tere rere rererererererereraererary ¥ 
3 
Gc 
— 
“w 
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5:44 
-SBTTL CANCELIO = CANCEL I/0 ON MAILBOX UNIT 


2:31:55 eae Macro v04-00 


SYS.SRCIMBDRIVER.MAR; 2 


ad § ROUTINE IS yA NB TO CANCEL ALL OUTSTANDING 1/0 FOR A PARTICULAR 


PROCESS AND CHANNE MAILBOX UNIT. 
; IF THE UNIT IS BUSY, THE CURRENT READ PACKET IS CHECKED AND COMPLETED 
IF IT BELONGS TO THE CANCELLING PROCESS. ALL QUEUED REQUESTS HAVE atuse REMOVED. 
IF NO READER EXISTS THEN THE QUEUE OF OUTSTANDING MESSAGES IS SEARCHED 
FOR MESSAGES AND WAITING WRITES. IF A PID MATCH EXISTS THEN THESE 1/0 
ARE ALSO rss ALONG WITH REMOVING THE MESSAGES. 
THE FINAL ACTION IS TO SEARCH THE QUEUE OF AST REQUESTS TO REMOVE THE ONES 
ASSOCIATED WITH THE CANCELLING PROCESS. 
Ré = NEGITIVE OF CHANNEL NUMBER 
R35 = CURRENT PACKET ADDRE 
R4 = PCB OF CANCELLING PROCESS 
R5 = UCB OF UNIT 
R8 = CANCEL REASON CODE (CANSC_CANCEL, CANSC_DASSGN, or CANSC_AMBXDGN) 


EANCELIO: ; CANCEL 1/0 ON MAILBOX UNIT 
CMP #CANSC_AMBXDGN, R8 : Branch if this is an associated 
3 BEQL ; mailbox last ref. deassign. 
PUSHR #*M<R4,RS,R6,R7> 3 SAVE R4-R7 
49 MOVL R2,R ; COPY CHANNEL NUMBER 
49 BBC #UCBSV_BSY,UCB$W_STS(RS).10$; BUSY y* 
9 CMPL  PCBSL_PID(R4) , IRPSL_PID( {RS 3); PIDS MA 
494 BNEQ : IF NO THEN CANCEL DONE 
95 CMP IRP$W_CHAN(R3) : er 
49 BNEQ ; IF NEQ THEN. 
MOVaQ #Sss ef ae : SET STATUS FOR ABORT 
JSB G*IOCSREQ : pong SM: THE REQUEST 
BRB 40$ ; CEL IS D 
3$ BRB 100$ 3 oth MBX deassign br. assist. 


; NO READER WAITING - CHECK MESSAGE QUEUE 
UCBSL MB_MSGQ(R5S) .R2 
43) R2 

RO Re 


BEQL «86-408 


eee | 
So 
oy oe 
i 
Be 
ow 


CHPL —PCBSL_PID(R4), 18(R2) 
4(R2).R3 
CMPW = sR6,, IRPSW_CHAN(R3) 


WIN OOBNAASWN = S OONO 
S 
a 
oz 
E t=) 
v< 
rr 


; ADDRESS MESSAGE QUEUE 

COPY LIST HEAD ADDRESS 

ADDRESS LIST ENTRY 

ND OF LIST? 

IF YES THEN DONE 

MESSAGE BELONG TO CANCELLING PROCESS? 
NO THEN SEARCH — E 

ADDRESS PACKET IF 
EQL THEN NO Assoc "PACKET 

CHANNEL MATCH? 
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mpon yer = VAX/VMS MAILBOX DEVICE DRIVER 197 $60- 1383 90:7 755 penives Macro v04-00 Page 11 
V CANCELIO = CANCEL 1/0 ON MAILBOX UNIT 12-SEP-1984 :15:44 (CSYS.SRCIMBDRIVER.MAR;2 (4) 
ES 12 019 14 BNEQ 208 3; IF NEQ THEN NO 
19 15 ; BUT GET RID OF MESSAGE 
38 As. 2C so 7D 19 1 MOVQ #SS$_ABORT, IRPSL_MEDIA(RS); SET STATUS 
0 09 OO'GF 16 01 1 JSB GacORsPosT ; COMPLETE THE OPERATION 
6 OF 1A 18 30$ REMQUE (R2),RO 3; REMOVE MESSAGE FROM QUEUE 
18 AS OC Ad) «AO OIA 1 ADD 12(R2) ,UCBSW BYF QUO(RS) $ ADJUST QUOTA 
16 a5 87 OTAA 0 DECW  UCBSW_MSGCNTTRS) * AND MESSAGE COUNT 
44 AS 16 A BO QA 1 MOVW UCBSW MSGCNT(R5) ,.UCBSL_DEVDEPEND(R5); SAVE IT 
0 ' GF 16 018 ¢ JSB G*COMSDRVDEALM2M ; DEALLOCATE MESSAGE 
BD 11 + z BRB 10$ ; SEARCH LIST FROM THE START 
154 5 ; SEARCH AST QUEUE 
57 OC AS 43 1BA § los MOVAB UCBSL_MB_W_AS‘(R5S),R7 3; ADDRESS LIST OF AST'S 
4 6€ OD 185 8 MOVL (SP) ,R4 ; GET CANCEL PCB 
09900098 * sf 16 Q1C JSB G*COMSFLUSHATTNS ; FLUSH ATTENTION AST'S 
5 10 AS 9E 1C7 0 MOVAB UCBS$L_MB_R_AST(85),R7 ; ADDRESS WRITER AST'S 
00000000 ' GF 16 QO1CB 1 JSB G*COMSFLOSAATING 3; FLUSH THAT LIST 
OOFO 8F BA 101 § POPR #*M<R4,RS,R6,R7> 3; RESTORE REGISTERS R4-R7 
1D5 SETIPL #IPL$_SYNCH > LOWE 
50 02 9A 0108 4 MOVZBL #RSNS_ MAILBOX,RO ; DECLARE RESOURCE AVAILABLE 
00000000'GF 16 3108 5 JSB G*SCHSRAVAI! 
Ht 2 ; ; CHECK FOR LAST CHANNEL 2EASSIGN 
58 01 D1 O1E1 9 CMPL #CANSC_DASSSN, R2 ; Deassigning channel? 
i 1E4 40 BNEQ ; Branch if not channel deassign. 
5C A B 1€6 4] TSTW UeReU_REFC(RS) ; Is reference count zero? 
39 12 O1E9 226 BNEQ 00$ : Branch if ref. count not zero. 
34 68 aS O01 E1 He 2? 100$: BBC #UCBSV_DELMBX, - ; Branch if mailbox is not 
O1F 44 UCB$W_BEVSTS(RS), 900$ ; to be deleted. 
Bite 45 SETIPL #IPLS_ASTDEL 3; Lower IPL 
74 AS sf 1F 6 TSTL VERE LOSAER CRS? ; Test address of logical name entry. 
16 #1 bite 4 BEQL 120$ : Branch if none. 
09900000 "st 16 ae ee JSB G“*LNMSLOCKW ; Lock name table for write. 
51 4A5 00 OIF 49 MOVL UCBS$L_LOGADR(RS), R1 ; Get address of logical name entry. 
00000000'GF 16 0 550 JSB G*LNMSDELETE_LNMB : Delete logical name block. 
00000000'°GF 16 be 23) JSB G*LNMSUNLOCK 3 Unlock name table. 
020E 328 ; Clean up mailbox messages 
p 43 eee : there are no outstanding 1/0 operations. 
50 0085 OF 020 36 120$: REMQUE @yCBSL_MB_MSGQ(R5), RO ; Fetch message block. 
8 1D 1 : BVS 1 ; Branch if none. 
O0000000'GF 16 1 8 JSB G*EXESDEANONPAGED ; Deallocate message block. 
F211 1A 5 BRB 1208 ; Repeat until exhausted. | 
64 AS 00010000 8F c8 1C 60 150$: BISL #UCBSM_DELETEUCB, - ; Mark UCB for deletion, DASSGN 
4 61 UCBSL_STS(RS) ; will do the rest including crediting 
rt $¢ : quotas for temporary mailboxes. 
05 4 64 900$: RSB ; Return to caller. | 
| 
| 
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DRIVER - VAX/VMS MAILBOX DEVICE DRIVER 16-SEP-1984 00:31:55 VAX/VMS Macro v04-00 Page 1 | 
raat CHECKIO = CHECK READ AND WRITE PARAMETER 18-8 sets 90:93:22 SYS. SRCIMBDRIVER.MAR; 2 = (8) | 
% : .SBTTL CHECKIO = CHECK READ AND WRITE PARAMETERS | 
8 : READCHECKIO = CHECK READ PARAMETERS 
6 ; WRITECHECKIO = CHECK WRITE PARAMETERS 
rt $ FUNCTIONAL DESCRIPTION: 
i : THIS ROUTINE IS USED BY THE READ AND WRITE FDT ROUTINES TO VALIDATE THE 
74 ; 1/0 REQUEST. THE CHECKS ARE MADE BASED ON THE SETTING OF THE IRPS$V_FUNC 
75 : OPERATION DIRECTION BIT. THE CHECKS ARE, 1) ACCESS TO UNIT BY UIC 
id: ; 2) MESSAGE REQUEST SIZE WITHIN MAX MESSAGE SIZE, 3) BUFFER ACCESSIBLE 
28 ; ACCESS VIOLATIONS CAUSE COMPLETIONS HERE. 
0 : INPUTS: 
: : R3 = PACKET ADDRESS 
0 ; R4 = PCB ADDRESS 
4: RS = UCB ADDRESS 
0225 585: R6 = CCB ADDRESS 
0 5 86 ; R7? = FUNCTION CODE 
5 587: RQ = ATCH) 
9 3 88 ; AP = ADDRESS OF THE FIRST Q10 PARAMETER 
0225 30 : OUTPUTS: 
6 3 398 : R3 = PACKET ADDRESS 
0225 39 : R4 = PCB ADDRESS 
0225 34 : RS = UCB ADDRESS 
0 2 $56 : IRPSL_MEDIA(R3) = BUFFER ADDRESS 
; 338 3 IRP$L_BCNT(R3) = BUFFER SIZE (low order only) 
9 t<- 
3 600 .ENABL LSB 
601 READCHECKIO: ; CHECK READ PARAMETERS 
00000000'GF 9F 0225 60¢ PUSHAB G*EXESREADCHK : READ CHECKS NEEDED 
59 00000000’ GF 3 0 6 MOVAB G*EXESCHKRDACCES,R9 ; 
D 6 604 MOVL #CCBSV_RDCHKDON,A10 ; 
11 605 BRB 10$ : CONTINUE IN COMMON 
606 WRITECHECKIO: : SET UP FOR WRITE CHECK 
59 00000000'GF 9 7 60 MOVAB G*EXESCHKWRTACCES,R9 : SET UP WRITE CHECK 
5A 03 siéO 6 MOVL  #CCBSV_WRTICHKDON,R10 : 
09900000" Fo O6F ‘i 60 PUSHAB G*EXESQRITECHK ; 
0A 08 AB SA EO 026 10$: BBS R10,CCBSB_STS(R6),20$ ; SKIP CHECK IF ALREADY DONE 
4c 61 : R46 = PCB ADDRESS 
4C 61g : RS = UCB ADDRESS 
9 16 4c 61 JSB (R9) > CHECK UIC ACCESS 
1E 5 E oF 614 BLBC RO, ERROR : BR IF ACCESS FAILURE 
00 08 a6 5A E2 615 Bess =—s._«aR10 CCBSB_STS(R6) . 208 : MARK PROT CHECK DONE 
1 04 AC i 6 16 20$:  MOVZWL P2(AP),R : GET BUFFER SIZE 
1 A 61 BEQL ZEROLENGTH : IF EQL THEN COMPLETE HERE 
42 AS 31 8 5 18 CMPU R1,UCB$W_DEVBUFSIZ(RS) : MESSAGE SIZE IN RANGE? 
8 1A 026 1 BcTRU 50$ : IF GTRU THEN NO 
38 AS 86 09 3 e31 MOVE ROSTRPSCMEDIACR3) SAVE BUEFER ADDRESS 
6 69 622 RSB ? . t RETURN AND CHECK BUFFER 
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O$: MOVZWL 9 #SS$_MBTOOSML RO ; SET BOX TOO SMALL 
RROR: JMP G*EXESABORTIO ; ABORT THE 1/0 
;+ 
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of the current stack) of zero ayes length is constructed. The normal 
; access checks must be mypenece or thise buffer because the previous caller 


may not have access to the current stack. 


ZEROLENGTH: 
TSTL Pop cheek ine rout. addr. from stack. 
Set zero byte count. 


Set top-of-stack buffer address. 
Return directly to routines caller. 


(SP)+ 
CLRL —sRPSL_BCNT(R3) 
MOVAB (SP), IRPSL_MEDIA(R3) 


-DSABL LSB 


ate 
CK 
é 3 
4 
5 
é 5 ; PROCESS ZERO LENGTH TRANSFERS 
4 : ; For a zero byte transfer, a dummy buffer (whose address is the current top 
uF 
e38 | 
4 
es 
39 
638 
639 
640 
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DRIVER = VAX/VMS MAILBOX DEVICE DRIVER ~SEP=1984 yareves Macro V04-00 P 1 
VOe-O01 FDTREAD = READ PUNC TION DECISION ROUTINE | ~SEP=1984 z $8: 1332 SYS. SRCIMBDRIVER.MAR; 2 tet ( 


BISW #IRPSM_MBX10, IRPSW_ set SET MAILBOX READ 
UPDATE MEASUREMENT COUNTER IF ENABLED 


- IF NE CAS_MEASURE 
I cake PMSS$GL_MBREADS ; COUNT MAILBOX READS 


AG 
2A A~ 0400 BF AB 


00000002 
QOOO0000"EF 06 


CHECK FOR READ NOW FUNCTIONS 
BBC #10$V_NOW, IRPSW_FUNC(R3),50$; BR IF NOT "NOW" 
> READ NOW 


; TEST TO SEE IF THERE ARE ANY MESSAGES WAITING 


13 20 a3 06 €1 


zr 4s , .SBTTL FDTREAD = READ FUNCTION DECISION ROUTINE 
di 43 ; FDTREAD = FUNCTION DECISION ROUTINE FOR READ OPERATIONS 
di ‘3 : FUNCTIONAL DESCRIPTION: 
i a3 : THE USER REQUEST IS VAILDATED FOR: 
7F 631 : J ACCESS ay uICc. 
aos ; : T WITHIN MAXIMUM MESSAGE SIZE. 
di ee : “BUF YER ACCESSIBLE FOR WRITE. 
7F 2¢ + THEN THE PACKET I$ QUEVED ONTO THE UCB FOR PROCESSING WHEN THE UNIT IS IDLE. 
7F 636 : FOR READ NOW FUNCTIONS IF NO MESSAGES ARE PRESENT IN THE MAILBOX 
ze $3 ; THE OPERATION IS COMPLETED 
ze 639 : INPUTS: 
7F 4661: R3 = 1/0 PACKET ADDRESS 
7F 66¢ : R4 = CURRENT PCB ADDRESS 
7F 6663: RS = UCB ADDRESS 
7F 664: R6 = CCB ADDRESS 
0 7F 46665: ? = FUNCTION CODE BES 
0 di 666 AP = PARAMETER BLOCK AT USER ARGUMENT ‘'P1 
0 zt 6 : OUTPUTS: 
7F 46670: THE PACKET IS QUEUED VIA "EXESQIODRVPKT’’ OR 
Ag 3 THE REQUEST IS COMPLETED WITH AN ERROR VIA ‘‘EXESABORTIO’’ 
0 zr , : STATUS CODES: 
7F «675: SS$_NOPRIV = USER DOES NOT HAVE PRIVILEGE TO READ MAILBOX 
7F 6676: SS$-ACCVIO = BUFFER ACCESS VIOLATION ( ‘'EXESREADCHK’ ) 
7F «677: SSS"MBTOOSML = REQUEST EXCEEDS THE MAXIMUM MESSAGE SIZE 
7F 6678: SS$"ENDOFFILE - FOR ‘'READNOW' NO DATA RETURN 
7F «6679: SSS"NORMAL = NORMAL STATUS ( "'STARTIO" ) 
FDTREAD: 
10 BSBB READCHECKIO VALIDATE THE REQUEST 


OOD NA NEW SO OD NO UE WIN 0 OBNAUE WIN OOo 


WOOO OOOO 000900090909 09 O08 I 


MPP ININIG OO 999 NNN Se 
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SETIPL #IPL$_MAILBOX ; SET TO FORK IPL 


= VAX/VMS MAILBOX DEVICE DRIVER ~SEP-1986 9 :31:55 VAX/VMS Macro V04-00 
v04=00 FDTREAD = READ FUNCTION DECISION ROUTINE “SEP=1984 23:15:44 ([SYS.SRCIMBDRIVER.MAR; 2 
16 AS 0 TSTW $W_MSGCNT(RS) : ANY MESSAGES? 
0B 83 $8 ; BNEQ Ye a ; IF NEQ THEN YES 
A ; : COMPLETE "READNOW'’ FUNCTIONS BECAUSE NO MESSAGES ARE AVAILABLE 
59 0870 8F 36 3A By MOVZUL #SS$_ENDOFFILE RO : SET NO TRANSFER ono STATUS 
0000000" GF °F $ G*EXESF INISHIO€ + COMPLETE THE I/0 
M f ; QUEUE PACKET TO DRIVER LIST 
00000000'GF 17 O2a5 710 50s: gmp G*EXESQIODRVPKT : QUEUE PACKET ON UCB 


rst 
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:¢ 
; FDTSET = HANDLE SET MODE FUNCTION 
; FUNCTIONAL DESCRIPTION: 


; : THIS ROUTINE IMPLEMENTS THE 10$ 
; : THE Fu DIFFERENT cee Fenn ARE SEL 


INPUTS: 

R3 = 1/0 PACKET ADDRESS 

R4 = CURRENT 

OUTPUTS: 

NONE, THE 1/0 IS COMPLETED 
3 STATUS RETURNS: 

is 


WAIN AAI I nonononnonnNn) SS 
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Anunnn 
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DISET: 


GET THE FUNCTI 
; FUNCTION IS SP 
; SET-WRITE-ATTE 


AE 
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: SEE IF THIS IS A SETPROT FUNCTION 


; BBS #10$v -SETPROT - : 
IRPS$W~FUNC(R35 ,50$ ; 


> SEE IF USER CAN READ THIS MAILBOX 
S$: JSB G*EXESCHKRDACCES : 


PEEP AA AA MAINT 


..F 
CTION ISSEp=19be 99:15322 


~-SBTTL FOTSET = HANDLE SET MODE FUNCTION 


RS = UCB ADDRESS FOR MAILBOX UNIT 


S_FMOD, ww 


CL 
; AR 
; UF 


; R4 = PCB 


AX/VMS Macro Vv04-00 
SYS.SRCJMBDRIVER.MAR; 2 


N CODE MODIFIER. 


FUNCTION 
TPROT FUNCTION 
; SET RECEIVE AST FUNCTION 


“y MAKE SURE THAT ONLY Pe 
TS ARE SET, THEN IT IS A 


SSUME ILL LEGAL 1/0 FUNCTION 
THEN Assume EFA ULT 
SUBTRACT ONE FROM THE FUNCTION MODIFIER 
EAR TH THE RESULT INTO THE ORIGINAL 


Nore tots THEN MORE THAN ONE BIT SET 
BRANCH IF SETPROT FUNCTION 


CHECK THE ACCESS OF THIS USER 
ADDRES 


S 
S 


wef 


>? | 
DRIVER = VAX/VMS MAILBOX DEVICE DRIVER 16-SEP=1 : X/VMS Macro V04-00 Page 17 
raat FDTSET = HANDLE SET NAGE PONCE TON 13=865- 1382 98: 11:22 ¥ SYS. SRCIMBDRIVER. MAR; 2 . (7) | 
D : RS = UCB ADDRESS | 
3¢ 5 £9 D BLBC —_ RO ERROR ; IF LOW CLEAR THEN ERROR 
57 CA D MOVAB UCBSL_MB_W_AST(R ASSUME WRITER AST 
02 20 a3 E D BBC Spiga apse. FUNE CR ),10$; BR IF NOT READER AST 
7 »D dC f TSTL  (R7)4 ; POINT TO READER AST LIST 
9090 F BB 02D 4 10$:  PUSHR #*M<R4,R7> + SAVE PCB AND LIST HEA 
00000000'GF 16 Oc& f3 JSB G-COMSSETATTNAST : CONTINUE IN COMMON 
12 BA OE : POPR #*M<R1,R4> ; POP PCB AND SET LIST HEAD ADDRESS 
EA 77 SETIPL #IPL$_MAILBOX set up THE IPL 
07 20 a3 07 €0 OE 28 BBS #10$V “READATIN, IRPSW_ FUNECR ),15$; BR IF READER AST 
F 7 ; DEFUALT IS WRITE ATIN 
16 as 85 Fo 780 TSTW ges MSGCNT(RS) t ANY MESSAGES? 
F578) BEQL 1 + IF EQL THEN NONE 
g 11 OOF? 7 ; BRB 0$ : i NEG THEN DELIVER AST 
06 64 AS 08 Fl Fo 783 15$: BBC #UCBSV_BSY,UCB$W_STS(R5).25$; BR IF NOT BUSY 
0000 200" gt FE 784 O§: JSB G*COMSDELATTNAST- : DELIVER THE ASTS 
weak Ea 4 785 25$:  MOVL : RESTORE PCB 
00000000'GF 1 ? t 6 0$: UMP CAEXESFINISHIOC + COMPLETE THE 1/0 
Op , 8 : HANDLE THE SETPROT FUNCTION 
50 24 3C 0300 790 508: MmOVZWL #SS$_NOPRIV,RO ; ASSUME NO PRIVILEGE 
51 1C AS. dO 0 10 791 MOVL  UCBSC_ORB(RS),R1 : GET THE ORB ADDRESS 
00BC ci D1 1 198 CMPL PCBsL~ UIC Ens : IS THIS THE VOLUME OWNER? 
14 12 5 794 BNEQ ; BRANCH IF NOT 
50 04 AC 3C 0318 795 51%:  MOVZWL PoC »,RO ; GET THE PROTECTION MASK 
1F 79 SETIPL OfPce A DISABLE DEVICE INTERRUPTS 
0B Al «(0188 2 79 BISB2 FORESA. PROF Ore ORBSB_ FLAGS(RI) - PROTECTION WORD NOT VECTOR 
18 Al 50 80 6 798 OVW RO,ORBSW P ROT (Rt) : SET THE NEW PROTECTION MASK 
SoG) RF GBR 785 ROVZML. SEE. NORAAL, : SEL SUCCESS STATUS 
1D £0 0 F 801 52$: BBS #PRVSV_BYPASS,- + BRANCH IF USER HAS BYPASS 
E7 6C 84 1 08 aPCBSL - “PHD(R4S,51$ : 
FF38 = 31 0 4 80 BRW ERR ABORT THE 1/0 
, 04 ase .SBTTL EDT EOF - WRITE EOF MESSAGE T TO MAILBOX 
g 8s : FDTEOF = WRITE EOF MESSAGE TO THE MAILBOX 
, 08 : FUNCTIONAL DESCRIPTION: 
7 810 : THIS IS THE FOT ROUTINE FOR LOSURITEOF THE ACTION 1S TO BUILD A 
7 811 : ZERO LENGTH MESSAGE AND TO INSERT IT IN THE MAILBOX. THE FUNCTION 
7 1 : CODE IS SAVED IN THE MESSAGE AND INDICATES THAT THE MESSAGE WAS AN 
i 13 : END-OF-FILE. 
f 15 + INPUTS: 
7 i$ : R3 = 1/0 PACKET ADDRESS 
7 18 : R4 = CURRENT PCB ADDRESS 
7 819: RS = MAILBOX UCB ADDRESS 
4 y : R7 = 1/0 FUNCTION CODE. 
f : : OUTPUTS: 
7 4: IRPSL_MEDIAC(R3) = TOP OF = STACK, (dummy, °'p "buffer'’ address) 
7 S$; IRPSL-BCNT(R3) = ZERO (dummy ‘buffer’ size) 


— 7 
DRIVER = VAX/VM BOK. DEVICE DRIVER 16=SEP=1 :55 VAX/VMS Macro v04-00 Page 1 
VORnOOt FDTEOF = SuRite eo F MESSAGE TO MAILBOX 1S=865- 138¢ 99: 7b:22 :44 CSYS.SRCIMBDRIV VER.MAR;2 ° 3, 
. ; THE 1/0 1S COMPLETED IN THE WRITE FDT LOGIC. ( SEE BELOW) 
FDTEOF : 
30 A3 p4 7 ; CLRL —IRP$W_BOFF(R3) + SET NO TRANSFER AND NO QUOTA 
00000000'GF 16 A 1 J$B G*EXESCHKWRTACCES + CHECK THE ACCESS 
4 ¢ ; R4 = PCB ADDRESS 
4 + RS = UCB ADDRESS 
93 50 £9 034 4 BLBC ~—_- RO, 108 + IF ERROR THEN BR 
2A bs 4 5 CLRL_ —sIRPSL_BCNT(R3) + SET NO DATA 
38 A3—s6E F 46 : MOVAB (SP), -IRPSL_MEDIA(R3) : FAKE GOOD ADDRESS FOR THE FUTURE MOVC 
} 4A BRB WRITE : WRITE THE MESSAGE 
FF 1 O34¢ 8 10$ BRW ERROR + CONTINUE 
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TION FUT ROUTINE 1ScSEP-19B6 Soitsian eneMeecHagne Won CO... Page 18, 


+ ~SBTTL FOTWRITE = WRITE OPERATION FDT ROUTINE 
¢ FOTWRITE == FUNCTION DECISION ACTION ROUTINE FOR WRITE FUNCTIONS 
; FUNCTIONAL DESCRIPTION: 


mo 
ae 


: THE USER wi hig He 'y VALIDATED FOR PRIVILEGE, SIZE, ACCESS AND AVAILABLE 
; SPACE. IF VALI ay FFERED 1(0 BLOCK IS ALLOCATED (IMPLIED RESOURCE WAIT). 
THE BLOCK IS tee 1, ND QUEVED TO THE UNIT MESSAGE LIST. IF THE UNIT 
; IS BUSY, THE OUTSTANDING READ OPERATION IS COMPLETED DIRECTLY. 

IN THE CASE ore “WRITENOW'’ FUNCTIONS THE I/0 IS COMPLETED BEFORE THE 
MESSAGE IS QUEVED. OTHERWISE THE READ COMPLETE ROUTINE COMPLETES 
; THE MESSAGE ASSOCIATED WRITE. 
INPUTS: 

R3 = 1/0 PACKET ADDRESS 

R4 = CURRENT PCB ADDRESS 

RS = UCB ADDRESS 

R6 = CCB ADDRESS 

= FUNCTION CODE 

AP = ADDRESS OF USER ARGUMENT BLOCK AT ‘'P1"’ 

; OUTPUTS: 


THE 1/0 IS COMPLETED IN ERROR, THE 1/0 IS RESTARTED BECAUSE OF 
RESOURCE WAIT, OR THE 1/0 IS COMPETED NORMALLY. 


¢ STATUS RETURNS: 


WWWAWI_AAAAIAIAIA AAAI AAAI NIAAA AAI AAAI AAAI AAAI AAAI te 
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SS$_MBTOOSML - MESSAGE IS TOO BIG é ‘ 
SSS"ACCVIO = BUFFER ACCESS VIOLATION ( “EXESWRITECHK"' ) 
SS$S-MBFULL - MAILBOX IS FULL 
SSS"NOPRIV - USER DOES NOT HAVE WRITE PRIVILEGE 
SSS"NORMAL = SUCCESSFUL STAT 
SSS"INSFMEM - NO MEMORY FOR BUFFER ALLOCATION 
DTWRITE: : 
BSBW = WRITECHECKIO ; CHECK OPERATION PARAMETERS 


At this point, the following inputs are assumed: 


R3 = 1/0 PACKET ADDRESS 
R4 = CURRENT PCB ADDRESS 


Re = UCB ADDRESS 

R7 = FUNCTION CODE 
IRPSL_MEDIA(R3) = BUFEER ADDRESS 
IRPSL_BCNT(R3) = BUFFER SIZE (low order only) 


TH Me Oe Se Oe Be Be Se Se Be Be 
o + 


RITE: 
ADDL3 #MBMSG_C_HEADER, IRP$W_BCNT(R3),R1 ; COMPUTE SIZE W/ HEADER 


: GET BUFFER 
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MAILBOX DEVICE DRIVER 16-SEP=1 :55 VAX/VMS Macro V04-00 P 
WRITE OPERAS Tow FDOT ROUTINE 1 mii ety 7 99: il: 144 YeYS 6 SRCIMBDRIVER, MAR; 2 ie 2B) 
97 PUSHL R3 ; SAVE IRP ADDRESS 
8 JSB GE XESALONONPAGED + ALLOCATE A BUFFER 
99 POPL R : RESTORE IRP ADDRESS 
00 BLBC ~=—_- RO, 55$ + CONTINUE 
gi SET UP BLOCK 
i PUSHR #*M<R2,R3,R4,R5> : SAVE BLOCK,PACKET,PCB AND UCB 
5 ADDL : : POINT PAST FIXED P 
é MOVW = R71, (R2)+ t INSERT SIZE 
MOVB = ADYNS BUF IO, (R2)+ : INSERT TYPE 
8 MOVB = R7,, CR t INSERT FUNCTION CODE 
MOVW IP Su BCNT(RS), (R2)+ : INSERT MESSAGE SIZE 
MOVL ; INSERT SAVED PACKET ADDRESS 
BBC aisy Now, IRP$W_FUNC(R3).15$; BR IF NOT "NOW 
CLRL : RESET MESSAGE PACKET POINTER 
15$ MOVE «PCBS _PID(R4) ,(R2)+ : INSERT PID OF SENDER 


; COPY DATA FROM USER TO SYSTEM 
Movc3 IRPsy BCNT(R3) : MOVE CHARACTERS TO SYSTEM SPACE 
Ps REDIACRS), (R2) 
POPR aancR ; RESTORE REGISTERS 
; CHECK TO SEE IF THERE IS ROOM IN MAILBOX FOR MESSAGE. THAT IS, THAT 
: THE MAILBOX'S BUFFER QUOTA IS NOT EXCEEDED. THIS MUST BE DONE AT FORK 
: IPL TO INTERLOCK WITH OTHER MAILBOX WRITERS. 


20s: eae #IPL$_MAILBOX 


ISE TO DRIVER FORK LEVEL 
IRPS$W_BCNT(R3) ,UCBSW_ vurdug¢R R5); MESSAGE FIT? 
BGTRU 60$ : IF GTR THEN NO 
> QUEUE THE MESSAGE 
. PUSHR #*M<R3,R5> : SAVE UCB ADDRESS AND PACKET 
INSMBQUEUE : INSERT THE M 
POPR #*M<R3,R5> : RESTORE UCB ADDRESS AND PACKET 
ENBINT : LOWER IPL 


; 


; SEE IF WRITE 1/0 GETS COMPLETED NOW 


BBS #10$V_NOW, IRP$W FUNC(R3) .50$; BR IF WRITE NOW 
JMP G*EXESQIORETURN™ RETURN TO CALLER 


: FINISH WRITE 1/0 OPERATION 

SoS:  MOVL  IRP$W BCNT-2(R3), RO 
MOVW #SS$_RORMAL,R 
JMP G EXESF INT SHIOC 

: INSUFFICIENT MEMORY TO BUFFER MESSAGE 


iss, MOVZWL #SS$_INSFMEM,RO : 
MOVZBL #RSNS_ NPDYNMEM,R1 F 


; GET TRANSFER COUNT 
; SET STATUS IN LOW 
; COMPLETE THE 1/0 


WAIT FOR RESOURCE 


SET INSUFFICIENT MEMORY STATUS 
SET RESOURCE TO AWAIT 


PEPPER EEE EAA IAI AIR PONONONONONononung 3 2 


! MAILBOX IS FULL - WAIT FOR A MESSAGE TO BE READ 
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755 
; RESTORE {Pt TO IPL$_ASTDEL 


; DEALLOCATE MESSAGE BLOCK 
E 
F 
C 
D 
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: SAVE PACKET 
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991 ; TEST UNIT BUSY == IF BUSY FINISH OUTSTANDING READ 


DRIVER - VAX/VMS MAILBOX DEVICE DRIVER 16-SEP-1984 cesar S Macro V04-00 Page 
trae FDTWRITE = WRITE opEXAt ion ye ROUTINE 1 mi iets 7 98: $b: SYS. SRCIMBDRIVER.MAR; 2 . (46) 
F ? 
f ‘ ks .SBTTL INSERT MESSAGE IN MAILBOX QUEUE 
r 20 : INSMBQUEUE = INSERT MESSAGE ON MAILBOX QUEUE 
F i : INPUTS: 
F 7% ; Re 2 ADDRE ss OF MESSAGE BLOCK 
F f3 ; R5 = UCB OF MAILBOX 
F 7 : OUTPUTS: 
F 8 : THE MESSAGE I$ QUEUED AND IF THE UNIT IS BUSY THEN 
FO 3-980: CONTROL IS TRANSFERED TO 'FINISHREAD'’ TO COMPLETE THE 
F 3 1: WAITING READ REQUEST. 
FO. 9 : INSMBQUEUE : 
16 AS B86 O3FO 984 INCW  UCBSW_MSGCNT(RS) JUST MESSAGE COUNT 
4405 1605 B F395 MOVW Agtaas SENTRS) gucest ova SAVE IT 
18 A5 OC A2 A 0 FBO : SUBW jessy _BUFQUO(R5S) ; ADJUST BY vré a UOTA BY MESSAGE SIZE 
0000000 FD O98 -IF NE C nels UR E : tH NEtk FOR MEASUREMENT ENABLED 
OOOOO000'EF D6 O3F +4 iNCL pasa MBWRITES ; COUNT MAILBOX WRITES 
403 989 .ENDC 
403 990 
20 99 
1E 64 AS 08 €0 040 993 ; BBS #UCBSV_BSY,UCBSW_STS(R5S) ,FINISHREAD; BRANCH IF BUSY 
aioe $35 : INSERT MESSAGE IN QUEUE 
0485 62 O€ 0408 $37 . INSQUE (R2),@UCBSL_MB_MSGQ+4(R5); INSERT MESSAGE IN QUEUE 
B8¢ 1333 : DELIVER ALL AST'S WAITING FOR MESSAGES ON THIS MAILBOX 
54 OC AS % 40¢ 1904 . MOVAB UCBSL_MB_WAST(RS),.R4 —; ADDRESS ATTENTION LIST HEAD 
00000000'GF 17 0410 1002 JMP G*COMSDECATTNAST : DELIVER THE A 
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VICE DRIVER “SEP=1 

ERATION ~$Ep=1986 29:93:2 
«SBTTL STARTIO = STARTIO OPERATION 

*STARTIO = START READ OPERATION ON IDLE MAILBOX UNIT 


FUNCTIONAL DESCRIPTION: 


AX/VMS Macro 
SYS.SRCJMBDR 


OTHERWISE, AN RSB IS DONE LEAVING 
LIMBO. 


INPUTS: 


R3 = 1/0 PACKET ADDRESS 
R5 = UCB ADDRESS 


; OUTPUTS: 
R2 = MESSAGE ADDRESS ON TRANSFER TO ‘'FINISHREAD"’. 
OTHERWISE AN RSB IS DONE. 


$SL_MB_MSGQ(R5) ,R2 
SHREA IF V-CLEAR TH 


CB 

NI : E 
BSL_MB_R_AST(R5),R4  ; ADDRESS LIST OF RE 
COMSDECATTNAST ; DELIVER AST'S 


> a ss ss tn ss — a te —+ 


I 
dD | 
PACKE 


THIS woyt ie IS ENTERED WHEN Ny UNIT IS NOT BUSY AND THERE 
cent TO PROCESS. IF THERE IS A Y MESSAGE WAITING THE REA 
THE UNIT BUSY AND THE 


v04-00 
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S COMPLETED 
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t GET MESSAGE IF ANY FROM QUEUE 
: N COMPLETE THE READ 


ADER AST'S 
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DRIVER = VAX/VMS MAILBOX DEVICE DRIVER 16-SEP-1 oe Macro V04-00 Page 24 
aah i FINISHREAD - FINISH READ 1/0 OPERATION 13-3 b=} 382 99: 71:22 S.SRCJMBDRIVER.MAR;2 . (93) 
r } § ~SBTTL FINISHREAD = FINISH READ I/0 OPERATION 
4 4 i : FINISHREAD = FINISH READ OPERATION 
4 $; : FUNCTIONAL DECRIPTION: 
re ! 8 ; ek idl nd IS ENTERED WHEN THE UNIT IS BUSY AND A MESSAGE 
4 1040 i THE WAITING READ Is yet BA ALONG WITH THE MATCHING WRITE 
re ? ! rf ; REQUEST IF THE WRITE WAS A WAIT TYPE. 
4 6 1 “g > INPUTS: 
4 1044 : 
426 1045 : Re = MESSAGE ADDRESS 
426 1 rt 3 R5 = UCB ADDRESS 
426 1047 ; 
Oe ? ! rt 3 OUTPUTS: 
456 1050 : 
456 1051 FINISHREAD: : 
53 58 AS ) 426 1 26 MOVL UCBSL_IRP(RS) ,R3 ; GET CURRENT I/0 PACKET 
2c A3 5 D 42A 105 MOVL Bg LRA ths VAPTE(R3) ; INSERT BLOCK ADDRESS IN PACKET 
8s 16 A 9E 04 5 1054 MOVAB 22(R2),(R2)+ ; INSERT ADDRESS OF DATA 
8 38 A ) 04 1055 MOVL IRPSL_MEDIA(R3) , (R2)+ ; INSERT USER VIRTUAL ADDRESS 
8 DS 04 : 1928 TSTL 5 the 3; PASS TYP R 
18 63 g -° O63 ep ste M Ls a eeatharais ; ADJUST QUOTA BY MESSAGE BLOCK SIZE 
50 02 9A be F 1059 MOVZBL #RSN$_MAILBOX,RO ; DECLARE RESOURCE AVAILABLE 
cooogon'se HS Bice 18st asta fepgseeavat 
0691 8F B0 ret 1086 MOVW #Sss burFe OVF, RO 3; Assume buffer overflow. 
2A3 861 bees 130 CMPW RPSO OBCNT CR »), (R2)+ 3; Was there a buffer overflow? 
08 <1F 0454 1064 BLSSU 0$ ; Branch if buffer overflow. 
32 AS FE A2 BO 0456 199? OVW =2(R2) ane ethene : Else, xfer only bytes in message 
0 1 60 beae 1 $3 MOV #SS$_N 3; and set normal xfer completed. 
50 10 10 32 A3 FO OQ45E 1067 10$: INSV IRPSO wisn) #16, #16, RO; Plant bytes transfered count. 
28 FDO A 4 +¢) 1988 He 7 (ney, #10$ _WRITEOF” : Bri Wor END-OF -F ILE? 
50 0870 8F 26 46A 1 % MOV #sss ENDOFF ILE RO : i SET for TUS 
1645 8B GF 1071 15$:  DECW CB$Q_MSGCNT(RS) MESSAGE ¢ COUNT 
44 AS 16 AS BO 04 § 1 ys MOVW Ucesu- Rs GCNT (RS) -UCBSL _DEVDEFEND E IT 
9 8B 477 107 PUSHR &#*M<R 3 SAVE P ket oo READER AND STATUS 
51 OC A3 DO 0479 107% MOVL IRPSL Lb pp(RS), R1 : Ger READ PID 
an o 430 199% BEdt ina) ik sane, PRONE 
38 AS) 0 0=(O1Ss«éwBO : 7 MOVW Tate oeerktas) : Return success to the writer. 
3A AS 32 A3_ B80 $ 1 § MOV Hs - ; Get writer bytes erenetae equal 
1080 IRPSL-MEDIA+2(R3) + to request byte co 
D 1081 MOVL R1 RO ; Move interna Ra nny pid for call 
1 — 1 : JSB G*EXESIPID_TO_EPID : Convert to extended p 
D 4 1 MOVL RO, IRPSL_MEDTA+4(R3)~— ; Return reader er A writer. 
1 98 1084 JSB Go ConsPosT ; omplete the ‘79 
1) Hj 1085 20$ MOVL (R2) ,RO ; Sor marnal writer pid ready for call 
1 Al 1 § JSB G°EXESIPID_T0_€PID ; Convert to extended pid 
D A? 1 MOVL RO,R ; Put the writer EPID nae REQCOM wants it 
BA AA 1088 POPR #*A<RO,R3> ; Restore status and packet address 
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COM$D MEM 
COM$F LUSHAT TNS 
COMSPOS 
COMSSETATTNAST 
DPTS$C_LENGTH 
DPTSREINITAB 
DPTSTAB 
DYNSC_BUF 10 
DYNSC DPT 
ERROR 
EXESABORTIO 
EXESALONONPAGED 
EXESCHKRDACCES 
EXESCHKURTACCES 
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Symbol table 


PRVSV BYPASS 
READCAECKIO 
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SySSc -MBXUCBS1Z 
UCBSL_AST ort 
UCBSL_ASTQ 

itt “DEVDEPEND 


UCBSL_ 

UCBSA_ ~DELETEUCE 
UCBSV_BSY 

UCBS$V_DELMBX 

UCB$W"BUF QUO 

UCB Su DEVBUF SIZ 

CBSW_DEVSTS 

Metis -MSGCNT 

UCBSW_REFC 


UCBs STS 
UCBSW_UNIT 


WR 
WRITECHECKIO 
ZEROLENGT 


PSECT name 
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DRIVER 


Sad 
ie wis 


ABS 
$$$10 
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! Performance indicators ! 


deme wes teem meena near cawroce + 


Phase Page faults CPU Time Elapsed Time 
Initialization 1 :00:00. :00:02. 
ry processing d 1 :00:00. :00:03. 
Symbol table sort 6 :00:03. :00:11. 
Pas 201 " 4 :00:17.31 
Symbo table output 19 :00:00.1 :00:00.74 
Psect synopsis output :00:00.03 :00:00. 3 
Cross-reference output g: 700. ! :00:00. 
Assembler run totals 894 " :01:42.84 


The working ses Limit was Pet page 
122911 bytes (241 pages) of vir un memory were used - buffer the intermediate code. 
There were 120 pages of symbol table Rag ucing.c0.ob hold 2162 non-local and ai local symbols. 
1091 source Lines were read in Pass 1, producin object records in Pass 
40 pages of virtual memory were used to define & 7 macros. 


wwe men we wee meer mmm momen n + 


Macro Library name Macros defined 
$255SDUA [SYs. OBJILI sa 1 5 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 0 

Terai’ (all Paty rel tn 35 


2435 GETS were required to define 35 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MBDRIVER/OBJ=OBJ$:MBDRIVER MSRC$:MBDRIVER/UPDATE=(ENHS :MBDRIVER) +EXECMLS/LIB 


= VAX/VMS MAILBOX DEVICE DRIVER Alay 1$-8 pal ohe 90:91:33 thas ytd 


4 
RIVeR.maR;2 "8" (98) 


ENT CORPORATION 
ND PROPRIETARY 


~AH-BT13A-SE 
VAX/VMS V4.0 


L EQUIPM 
ENTIAL A 


037 > 


DIGI 
CONF 


